home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 6.0 / Macromedia Multimedia Showcase v6.0 WIN-MAC (XMSH60CD)(Macromedia, Inc.)(1996).iso / pc / demosoft / freehand / data.5 / App / Usenglsh / lang8.dll / POST / 1066 < prev    next >
Text File  |  1996-10-03  |  1KB  |  56 lines
  1. /extrude
  2. {
  3. /chg xdf /deltay xdf /deltax xdf
  4. /tc1 xdf storerect /tc2 xdf
  5. /factor .95 def
  6. newpath
  7. tc1 length 2 eq
  8. {/tc1 tc1 spottoprocess def} if
  9. tc2 length 2 eq
  10. {/tc2 tc2 spottoprocess def} if
  11. /cnt todraw def
  12. /ts  
  13. {gsave currentpoint pop /xstart xdf blockxoff wordxoff add yoff
  14. rmoveto scalef dup scale right left sub 2 div xstart left sub sub
  15. neg curtextheight 2 div neg rmoveto awidthshow grestore}def
  16. 1 1 todraw div neg 0
  17. { 
  18. dup .02 le{pop 0}if /frac xdf
  19. gsave
  20. 0 1 3
  21. {
  22. bc4 exch            
  23. tc1 1 index get        
  24. tc2 2 index get        
  25. 1 index sub            
  26. frac mul add put    
  27. }for
  28. bc4 vc    
  29. dup exec 
  30. cnt 1 ne{grestore}if
  31. /cnt cnt 1 sub def
  32. } for
  33. /ts{gsave awidthshow grestore}def 
  34. tc1 vc dup exec tc2 vc
  35. curtextheight .005 mul setlinewidth
  36. /ts {{false charpath stroke}ta} def exec
  37. grestore
  38. }bdf
  39. /blockxoff  
  40. {right left sub 2 div currentpoint pop left sub sub}def
  41. /yoff  
  42. {curtextheight 2 div deltay todraw div cnt mul add}def
  43. /wordxoff  
  44. {deltax todraw div cnt mul}def
  45. /todraw  
  46. { deltax dup mul deltay dup mul add sqrt factor mul
  47. 100 chg sub abs factor mul add
  48. dup 0 le{pop 1}{round}ifelse} def
  49. /scalef  
  50. {100 chg sub abs 100 div todraw div cnt mul
  51. chg 100 ge{1 add}{1 exch sub}ifelse}def
  52. /spottoprocess
  53. {aload pop spots exch get aload pop pop pop 
  54. 0 1 3{pop 4 index mul 4 -1 roll}for        
  55. 4 array astore exch pop}bdf